COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "DACTST"
C00004 ENDMK
C⊗;
BEGIN "DACTST"

REQUIRE "HELIB[1,3]" LIBRARY;

EXTERNAL INTEGER PROCEDURE DDACO(INTEGER DAC);
DEFINE CRLF="'15&'12";
INTERNAL INTEGER AUTO_ACC, DAC_ACC;
LABEL JUMP, LOOP;
STRING INP;
INTEGER DAC;

	DAC_ACC ← 62;
	AUTO_ACC ← 30;
	DAC ← 0;
	OUTSTR("TYPE An AT ANY TIME TO SET AUTO TARGET TO n"&CRLF);
	OUTSTR("DAC BEING RELEASED "&CRLF);
	SETFORMAT(8,0);
	GO JUMP;

LOOP:	OUTSTR("DAC = ");
	INP ← INCHWL;
	IF INP = "A" THEN BEGIN AUTO_ACC ← CVD(INP[2 TO ∞]);GO LOOP;END;
	DAC ← CVD(INP);
JUMP:	DAC ← DDACO(DAC);
	OUTSTR("DAC = "&CVS(DAC_ACC)&
		"	AUTO = "&CVS(AUTO_ACC)&
		"	AD = "&CVS(DAC)&CRLF);
	GO LOOP;
	END;